← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:04 2022

Filename(eval 428)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 280 statements in 1.54ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1532639µs201msJSON::Schema::Modern::Document::::newJSON::Schema::Modern::Document::new
11119µs19µsJSON::Schema::Modern::Document::::BEGIN@16.330JSON::Schema::Modern::Document::BEGIN@16.330
11113µs37µsJSON::Schema::Modern::Document::::BEGIN@11.329JSON::Schema::Modern::Document::BEGIN@11.329
11110µs38µsJSON::Schema::Modern::Document::::BEGIN@74JSON::Schema::Modern::Document::BEGIN@74
1116µs11µsJSON::Schema::Modern::Document::::BEGIN@108JSON::Schema::Modern::Document::BEGIN@108
1114µs9µsJSON::Schema::Modern::Document::::BEGIN@79JSON::Schema::Modern::Document::BEGIN@79
1114µs11µsJSON::Schema::Modern::Document::::BEGIN@87JSON::Schema::Modern::Document::BEGIN@87
1113µs9µsJSON::Schema::Modern::Document::::BEGIN@84JSON::Schema::Modern::Document::BEGIN@84
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
221µs my $isa_check_for_errors = ${$_[1]->{"\$isa_check_for_errors"}};
311µs my $coerce_for_metaschema_5furi = ${$_[1]->{"\$coerce_for_metaschema_5furi"}};
410s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
511µs my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
610s my $isa_check_for_metaschema_5furi = ${$_[1]->{"\$isa_check_for_metaschema_5furi"}};
710s my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
810s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
910s my $isa_check_for_evaluator = ${$_[1]->{"\$isa_check_for_evaluator"}};
10 package JSON::Schema::Modern::Document;
11260µs261µs
# spent 37µs (13+24) within JSON::Schema::Modern::Document::BEGIN@11.329 which was called: # once (13µs+24µs) by Sub::Quote::_clean_eval at line 11
no warnings 'closure';
# spent 37µs making 1 call to JSON::Schema::Modern::Document::BEGIN@11.329 # spent 24µs making 1 call to warnings::unimport
12
# spent 201ms (639µs+200) within JSON::Schema::Modern::Document::new which was called 15 times, avg 13.4ms/call: # 8 times (312µs+43.3ms) by JSON::Schema::Modern::_get_or_load_resource at line 826 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 5.45ms/call # 6 times (287µs+149ms) by JSON::Schema::Modern::add_schema at line 152 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 24.9ms/call # once (40µs+7.96ms) by JSON::Schema::Modern::add_schema at line 177 of Sub/Defer.pm
sub new {
13 ($_QUOTED,$_UNQUOTED) if 0;
14# BEGIN quote_sub PRELUDE
15package JSON::Schema::Modern::Document;
16
# spent 19µs within JSON::Schema::Modern::Document::BEGIN@16.330 which was called: # once (19µs+0s) by Sub::Quote::_clean_eval at line 21
BEGIN {
1712µs $^H = 2018;
1814µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1917µs %^H = (
20 );
211433µs119µs}
# spent 19µs making 1 call to JSON::Schema::Modern::Document::BEGIN@16.330
22# END quote_sub PRELUDE
23144µs my $invoker = CORE::shift();
241411µs my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
251411µs if ($class ne "JSON::Schema::Modern::Document") {
26 if ($Moo::MAKERS{$class}) {
27 if ($Moo::MAKERS{$class}{constructor}) {
28 package JSON::Schema::Modern::Document;
29 return $invoker->SUPER::new(@_);
30 }
31 Moo->_constructor_maker_for($class);
32 return $invoker->new(@_);
33 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
34 return $meta->new_object(
35 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
36 : $class->Moo::Object::BUILDARGS(@_)
37 );
38 }
39 }
40 my $args = scalar @_ == 1
41 ? CORE::ref $_[0] eq 'HASH'
421450µs ? { %{ $_[0] } }
43 : Carp::croak("Single parameters to new() must be a HASH ref"
44 . " data => ". $_[0])
45 : @_ % 2
46 ? Carp::croak("The new() method for $class expects a hash reference or a"
47 . " key/value list. You passed an odd number of arguments")
48 : {@_}
49 ;
501426µs if (my @missing = grep !exists $args->{$_}, "schema") {
51 Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));
52 }
531457µs28100µs my $new = $invoker->JSON::Schema::Modern::Document::SUPER::new($class->FOREIGNBUILDARGS(@_));
# spent 81µs making 14 calls to Mojo::JSON::Pointer::new, avg 6µs/call # spent 19µs making 14 calls to JSON::Schema::Modern::Document::FOREIGNBUILDARGS, avg 1µs/call
5462µs(exists $args->{"canonical_uri"} and ($new->{"canonical_uri"} = scalar do { my $value = do {
55645µs local $Method::Generate::Accessor::CurrentAttribute = {
56 init_arg => "canonical_uri",
57 name => "canonical_uri",
58 step => "coercion",
59 };
6064µs (my $_return),
61 (my $_error), (my $_old_error = $@);
6264µs (eval {
63 ($@ = $_old_error),
64 ($_return =
65615µs678µs$coerce_for_canonical_5furi->($args->{"canonical_uri"})),
# spent 78µs making 6 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:39], avg 13µs/call
66 1
67 } or
68 $_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
6964µs ($@ = $_old_error),
70 (defined $_error and CORE::die $_error);
7165µs $_return;
72}
73;
7432125µs2074µs
# spent 38µs (10+28) within JSON::Schema::Modern::Document::BEGIN@74 which was called: # once (10µs+28µs) by Sub::Quote::_clean_eval at line 74
(do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$args->{\"canonical_uri\"}"); $value }),
# spent 38µs making 1 call to JSON::Schema::Modern::Document::BEGIN@74 # spent 28µs making 1 call to warnings::unimport # spent 4µs making 6 calls to Mojo::URL::fragment, avg 667ns/call # spent 3µs making 6 calls to UNIVERSAL::isa, avg 500ns/call # spent 1µs making 6 calls to Scalar::Util::blessed, avg 167ns/call
75 $value
76}
77)),
78(exists $args->{"errors"} and ($new->{"errors"} = scalar do { my $value = $args->{"errors"};
79270µs214µs
# spent 9µs (4+5) within JSON::Schema::Modern::Document::BEGIN@79 which was called: # once (4µs+5µs) by Sub::Quote::_clean_eval at line 79
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; (Ref::Util::XS::is_plain_arrayref($value)) and do { my $ok = 1; for my $i (@{$value}) { ($ok = 0, last) unless (Scalar::Util::blessed($i) and $i->isa(q[JSON::Schema::Modern::Error])) }; $ok } }) or Type::Tiny::_failed_check($isa_check_for_errors, "ArrayRef[InstanceOf[\"JSON::Schema::Modern::Error\"]]", $value, "attribute_name","errors","attribute_step","isa check","mgaca","0","varname","\$args->{\"errors\"}"); $value }),
# spent 9µs making 1 call to JSON::Schema::Modern::Document::BEGIN@79 # spent 5µs making 1 call to warnings::unimport
80 $value
81}
82)),
832882µs1416µs(exists $args->{"evaluator"} and (do { Scalar::Util::weaken($new->{"evaluator"} = scalar do { my $value = $args->{"evaluator"};
# spent 16µs making 14 calls to Scalar::Util::weaken, avg 1µs/call
8444157µs3047µs
# spent 9µs (3+6) within JSON::Schema::Modern::Document::BEGIN@84 which was called: # once (3µs+6µs) by Sub::Quote::_clean_eval at line 84
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::Schema::Modern]))) or Type::Tiny::_failed_check($isa_check_for_evaluator, "InstanceOf[\"JSON::Schema::Modern\"]", $value, "attribute_name","evaluator","attribute_step","isa check","mgaca","0","varname","\$args->{\"evaluator\"}"); $value }),
# spent 18µs making 14 calls to UNIVERSAL::isa, avg 1µs/call # spent 14µs making 14 calls to Scalar::Util::blessed, avg 1µs/call # spent 9µs making 1 call to JSON::Schema::Modern::Document::BEGIN@84 # spent 6µs making 1 call to warnings::unimport
85 $value
86}
871663µs218µs
# spent 11µs (4+7) within JSON::Schema::Modern::Document::BEGIN@87 which was called: # once (4µs+7µs) by Sub::Quote::_clean_eval at line 87
); no warnings 'void'; $new->{"evaluator"} })),
# spent 11µs making 1 call to JSON::Schema::Modern::Document::BEGIN@87 # spent 7µs making 1 call to warnings::unimport
88(exists $args->{"metaschema_uri"} and ($new->{"metaschema_uri"} = scalar do { my $value = do {
89 local $Method::Generate::Accessor::CurrentAttribute = {
90 init_arg => "metaschema_uri",
91 name => "metaschema_uri",
92 step => "coercion",
93 };
94 (my $_return),
95 (my $_error), (my $_old_error = $@);
96 (eval {
97 ($@ = $_old_error),
98 ($_return =
99$coerce_for_metaschema_5furi->($args->{"metaschema_uri"})),
100 1
101 } or
102 $_error = CORE::ref $@ ? $@ : "coercion for \"metaschema_uri\" failed: ".$@);
103 ($@ = $_old_error),
104 (defined $_error and CORE::die $_error);
105 $_return;
106}
107;
1082126µs216µs
# spent 11µs (6+5) within JSON::Schema::Modern::Document::BEGIN@108 which was called: # once (6µs+5µs) by Sub::Quote::_clean_eval at line 108
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_metaschema_5furi, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","metaschema_uri","attribute_step","isa check","mgaca","0","varname","\$args->{\"metaschema_uri\"}"); $value }),
# spent 11µs making 1 call to JSON::Schema::Modern::Document::BEGIN@108 # spent 5µs making 1 call to warnings::unimport
109 $value
110}
111)),
112(exists $args->{"schema"} and ($new->{"schema"} = $args->{"schema"})),
113 (($args)[0]->{__no_BUILD__} or (
11414159µs140s $new->JSON::Schema::Modern::Document::BUILD($args),
# spent 197ms making 14 calls to JSON::Schema::Modern::Document::BUILD, avg 14.1ms/call, recursion: max depth 1, sum of overlapping time 197ms
115 )),
116 return $new;
117 }
11811µs $$_UNQUOTED = \&new;
119}
12016µs1;
121
122;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.